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Insertion (prefix) { 
local insertionnode, ancestornode, result 
r STEP 1 */ 

insertionnode := FindNode (prefix) 
r STEP 2 */ 

r Virtual node exist in the aggregation tree */ 
if (insertionnode * NIL) then 

result := LeftSubTree (insertionnode) 

if (result * NIL) then 
/nsert/on(result) 

result := RightSubTrae (insertionnode) 
if (result * NIL) then 

Insertion^ result) 
DeleteNodeFromFT (insertionnode) 
r STEP 3 */ 

r FindAncestorNode searches ancestor node V 
ancestornode := FindAncestorNode (insertionnode, defaultlevel) 
if (ancestornode * NIL) then 

InsertWithAncestorfiJode (insertionnode, ancestornode) 
else 

InsertWithoutAncestorNode (insertionnode) 

} 



FindNode (prefix) { 
local node 

/* Search for node to be inserted */ 
node := GetNode (prefix) 
/* Identity the insertion node */ 
if (node ? NIL) then 
return (node) 

else 

return NIL 




} 
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InsertWithoutAncestorNode (insertionnode) { 
local ancestornode, newdelegationnode, searchlevel, 
descendantnode, dynamiclevel 
/* Lemma 2-2 */ 
searchlevel := defaultlevel*2 - 1 

ancestornode := FindAncestorNode (insertionnode, searchlevel) 
if (ancestornode = NIL) then 
dynamiclevel := defaultlevel 
else /* FindDescendantNode finds node not written to FT */ 
descendantnode := FindDescendantNode (insertionnode, defaultlevel) 
/* Get adaptive level */ 

if (descendantnode ? NIL) then 

dynamiclevel := GetNodePrefixLengfii (insertionnode) 
- GetDistPrefixLength (insertionnode, descendantnode) 

else 

dynamiclevel := defaultlevel 
newdelegationnode : = MakeDelegationNode (insertionnode, dynamiclevle) 
if (NodeNexthopVirtual (insertionnode) = TRUE) then 

InsertNodeToFT (newdelegationnode) 
else /* All inter-domain node must be inserted into FT */ 



MakeDelegationNode (node, level) { 
local delegationnode 

/* Make a virtual delegation node and set node type */ 
delegationnode := AllocateDelegationNode (node, level) 
SetNodeType (delegationnode) := DELEGATION 
SetDelegationNodelndex (delegationnode, node) 
return (delegationnode) 



InsertNodeToFT (insertionnode) 



} 




} 
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InsertWUhAncestorNode (insertionnode, ancestornode) { 
local newdelegationnode, result, dynamiclevel 
dynamiclevel := SelectDelegationLevel (insertionnode, ancestornode) 
if (dynamiclevel > 0) then 

newdelegationnode := MakeDelegationNode (insertionnode, dynamiclevel); 
/* Resolve destination area */ 

if (NodeNexthopVirtual (insertionnode) - TRUE) then 

InsertNodeToFT (newdelegationnode) 
else 

InsertNodeToFT (insertionnode) 
elseif (dynamiclevel = 0) then 

InsertNodeToFT (insertionnode) 
else I* Check aggregatability of route */ 

if (NodeNexthopVirtual (insertionnode) - FALSE) then 
InsertNodeToFT (insertionnode) 

} . 
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SelectDelegationLevel (insertionnode, ancestornode) { 
local dynamiclevel, result, searchnode, descendantnode 

descendantnode := FindDescendantNode (insertionnode, GetNodeLevel (ancestornode)) 

/* Get adaptive level */ 

if (descendantnode * NIL) then 

dynamiclevel := GetNodePrefixLength (insertionnode) 

- GetDistPrefixLength (insertionnode, descendantnode) 

else 

dynamiclevel :- GetNodesLevel (insertionnode, ancestornode) 
/* Aggregatable case ♦/ 

if (CheckNodeUpdateToFUancestomode) « TRUE 
&& AfafeSource(insertionnode) = AWeS0urce(ancestornode)) then 
dynamiclevel := -1 

return dynamiclevel 

} 
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Deletion (prefix) { 
local deletionnode, delegationnode, 

result, descendantnode 
r STEP1 V 

deletionnode := FindNode (prefix) 
/* STEP2 •/ 

If (CheckNodeAggregate (deletionnode) = TRUE) 
then 

deletionnode := GetDelegationNode (deletionnode) 
if (CheckNodeUpdateToFT (deletionnode) = TRUE) 
then 

descendantnode := FindDescendantNode 



r Suppress deletion from FT */ 
if (descendantnode ? NIL) then 
SetDelegationNode (deletionnode, 

descendantnode) 
else 



(deletionnode, defaultlevel) 



DeleteNodeFromFT (deletionnode) 



} 
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